home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1618copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  39 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1618"
  4. Company = "Sony"
  5. title = "Assault Rigs"
  6. Price = 59.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PlayStation"
  13. Title Description = "The cyberspace culture clash for trigger-happy Net junkies! A computer
  14. combat zone where corporate champions do battle for heaps of dirty cash. Hunt down opponents
  15. through more than 40 fiendish arenas with jumps, elevators, trenches, moveable blocks, a
  16. network 8 player option and deadly weapon power-ups, then blow them into cyber-oblivion!"
  17.  
  18. -----------------------------------
  19. dline = ""
  20. counter = 0
  21. repeat while dline <> title number
  22. counter = counter + 1
  23. dline = GetWord(1, GetLine(titl,counter))
  24. test(dline = title number, LineInTitle = counter)
  25. end repeat
  26. starttitle = LineInTitle
  27. num of titles shown = 6
  28. endtitle = starttitle + num of titles shown - 1
  29. titles = ""
  30. title highlight = ""
  31. repeat with counter = starttitle to endtitle
  32. nextline = GetLine(titl, counter)
  33. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  34. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  35. CharCount(nextline)) ^ Return, title highlight ^ Return)
  36. end repeat
  37. dpage = CurrentPageID
  38. newtitle = FALSE
  39. end if